﻿
Public Class Sanh_BLL

    'Dim sanh As New Sanh_DAL
    'Public Function LoadData() As IList
    '    Dim ds As List(Of Sanh)
    '    ds = sanh.LoadData()
    '    Return ds
    'End Function

    'Public Sub Insert(ByVal sanhDTO As Sanh)
    '    Dim sdal As New Sanh_DAL
    '    sdal.Insert(sanhDTO)
    'End Sub

    'lay danh sach sanh
    Public Function LayDanhSach() As IList
        Dim db As New QLTCDataContext()
        Dim query = From sanh In db.Sanhs
                    Select sanh
        Return query.ToList()
    End Function


End Class
